
{$R-}                             {Range checking off}
{$B+}                             {Boolean short circuiting off}
{$S-}                             {Stack checking off}
{$I+}                             {I/O checking on}
{$N-}                             {No numeric coprocessor}
{$V-}                             { disable string parameter type checking - faster }
{$M 65500,16384,655360}           {Turbo 3 default stack and heap}

{******************************************************}
{           The Adventure Game Toolkit (tm)            }
{ Copyright 1994 by Mark J. Welch and David R. Malmberg}
{                 All Rights Reserved                  }
{                                                      }
{              Version 1.7 (May 20, 1994)              }
{******************************************************}
(*
AGT is now "freeware."  This means that the authors, David Malmberg and Mark
Welch, still retain the copyright to AGT and all of its related files, such
as the documentations and sample games.  However, you or any other user may
use the AGT system to develop and distribute your own games without paying any
royalty to the AGT authors.
*)

{$DEFINE NormalVersion}  (* Normal version -- NOT BIG version *)


PROGRAM Compile;


USES
  Crt,
  Dos,
  Printer,
  Graph3,
  Turbo3;

  {$I DECLARE.PA3 }
  {$I GENTOOLS.PA3 }
  {$I SPCTOOLS.PA3 }
  {$I PARAM.PA3 }
  {$I FINAL.PA3 }
  {$I TITLE.PA3 }
  {$I INIT.PA3 }
  {$I COMMAND.PA3 }
  {$I PARSE.PA3 }

  {************************}
  {     Main Program       }
  {************************}

BEGIN
  InitializeLimits;
  CheckBreak := False;
  CheckParams;                    { in PARAM.PA3 }
  Title;                          { in TITLE.PA3 }
  Init_verbs;                     { in INIT.PA3 }
  ScoreAdjustment := 0;
  Set_Token_Parameters;
  PreviousCompoundCommands := False;
  DoingCompoundCommands := False;
  Skip_A_Line := False;
  Initialize_Part1;               { in INIT.PA3 }
  Initialize_Part2;               { in INIT.PA3 }
  CheckParameters;                {check limits of data structures just read in}
  Any_Special_Cmds := False;
  Read_Special_CMDs;              { If CMD file exists }
  Pause;
  CLRSCR;
  WriteFinalVersion;              { includes HALT }
END.
